10 PRINT"[147]"
15 INPUT"PORT 1 ODER 2";A
20 DEF FN JOY(X)=INT((LOG(255.5-(PEEK(56322-X)OR224)))/LOG(2)+2)
30 PRINT"[147]"
40 PRINT""
50 Q=FN JOY(A)
60 IFQ=1THEN PRINT"NULLSTELLUNG          "
70 IFQ=2THEN PRINT"OBEN                  "
80 IFQ=3THEN PRINT"UNTEN                 "
90 IFQ=4THEN PRINT"LINKS                 "
100 IFQ=5THEN PRINT"RECHTS                "
110 IFQ=6THEN PRINT"FEUER"
120 GOTO 40